home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / s / sasiedzi.dms / sasiedzi.adf / Instalacja < prev    next >
Text File  |  1995-07-15  |  5KB  |  183 lines
  1.  
  2. (set #Sasiedzi-install
  3. (cat "\n»» Instalacja gry Sâsiedzi-Demo ««"
  4.      "\n(1995) Sun Productins"
  5.      "\n\n\nProgram instalujâcy kopiuje dane potrzebne "
  6.      "do poprawnego dziaîania "
  7.      "na inny noônik. Program musi byê uruchomiony "
  8.      "po uruchomienu sekwencji startowej dysku twardego."
  9.      "\n\n\nCzy chcesz przejôê dalej ?"
  10. ))
  11.  
  12. (set #Sasiedzi-install-help
  13. (cat
  14.     "Jeûeli chcesz zasiëgnâê wiëcej informacji "
  15.     "na temat instalacji i samej gry "
  16.     "skontaktuj sië z autorami. "
  17. ))
  18.  
  19. (set #Sasiedzi-install-part2
  20. (cat "\n»» Instalacja gry Sâsiedzi-Demo ««"
  21.     "\n\nNajpierw musisz wybraê urzâdzenie "
  22.     "docelowe instalacji. Domyôlnie wybrany "
  23.     "zostaî dysk twardy `DH0:` i katalog "
  24.     "`Sasiedzi` , aby rozpoczâê poprawnie "
  25.     "instalacjë musisz stworzyê ten katalog "
  26.     "przyciskajâc `MAKE DRAWER` i `PROCED`. "
  27.     "W kaûdym momencie moûesz przerwaê "
  28.     "instalacjë przyciskajâc `ABORT INSTALL`. "
  29.     "Jeûeli nie zrozumiesz czegoô wybierz `HELP`. "
  30.     "\n\nChcesz rozpoczâê instalacjë?"
  31. ))
  32.  
  33. (set #Sasiedzi-install-part2-help
  34. (cat "\nJeûeli chcesz przerwaê to naciônij `NIE`."
  35.     "\nPodczas instalacji program przekopiuje "
  36.         "potrzebne pliki do odpowiedniego katalogu."
  37. ))
  38. ;----------------------------------------------------------------------------
  39. (set #thatdirne
  40. (cat "\nNie mogë otworzyê urzâdzenia o tej nazwie."
  41.      "\nPrawdopobnie on nie istnieje, "
  42.      "lub jeûeli instalujesz program na dysk "
  43.      "nie ma go w stacji."
  44.      "\nJeûeli wybierzesz `Yes`, to katalog zostanie stworzony."
  45.      "Jeûeli wybierzesz `No`, to bedziesz musiaî odwoîaê sië do "
  46.      "innego katalogu."
  47.      "\n"
  48. ))
  49.  
  50. (set #thatdirne-help
  51. (cat "\nWybraîeô inny katalog nie istniejâcy."
  52.      "\nJeûeli wybierzesz `Yes`, to katalog zostanie stworzony."
  53.      "Jeûeli wybierzesz `No`, to bedziesz musiaî odwoîaê sië do "
  54.      "innego katalogu."
  55. ))
  56. ;----------------------------------------------------------------------------
  57. (set #whereputSasiedzi
  58. (cat "Podaj nazwë urzâdzenia docelowego."
  59. ))
  60.  
  61. (set #whereputSasiedzi-help
  62. (cat "Musisz podaê nazwë urzâdzenia docelowego, "
  63.      "na którym zostanie zainstalowany program. "
  64.      "Moûe to byê nazwa np. dysku. "
  65.     "Jeûeli instalujesz program na inny noônik niû "
  66.     "dysk twardy "
  67.     "(musisz mieê co najmniej "
  68.     "dwie stacje dysków) i "
  69.     "aby instalacja przebiegaîa poprawnie musi byê to "
  70.     "dysk systemowy, czyli uruchomiony przed programem "
  71.     "instalujâcym."
  72.      "\n"
  73.     "Przy ustawnieniu domyôlnym `DH0:Sasiedzi` "
  74.     "najpierw stwórz odpowieni katalog `MAKE DRAWER`. "
  75.     "\n\n"
  76.      @askoptions-help
  77. ))
  78.  
  79. ; -----------------------------------------------------
  80.  
  81. (if (askbool (prompt #Sasiedzi-install)
  82.              (help #Sasiedzi-install-help)
  83.              (choices "Tak" "Zakoïcz")
  84.              (default 0))
  85. (
  86.  
  87. (if (askbool (prompt #Sasiedzi-install-part2)
  88.              (help #Sasiedzi-install-part2-help)
  89.              (choices "Tak" "Nie")
  90.              (default 1))
  91. (
  92.  
  93.     (set Sasiedzidir (getassign "Work" "v"))
  94.  
  95.     ; *****************************************************
  96.     ; * Did we get anything ? If not, set default to sys: *
  97.     ; *****************************************************
  98.  
  99.     ( if (= Sasiedzidir "") (set Sasiedzidir "sys:") )
  100.     (set goodresp FALSE)
  101.  
  102.     (while (= goodresp FALSE)
  103.     (
  104.         (set target (askdir (prompt #whereputSasiedzi)
  105.                 (help #whereputSasiedzi-help)
  106.                 (newpath)
  107.                 (default "DH0:Sasiedzi")))
  108.  
  109.         (if (not (exists target))
  110.  
  111.         (
  112.                 (if (askbool (prompt (#thatdirne))
  113.                          (help (#thatdirne-help))
  114.                          (default 0) )
  115.                 (
  116.                     (makedir target (infos) )
  117.                     (set goodresp TRUE)
  118.                 ))
  119.         )
  120.         (
  121.             (set goodresp TRUE)
  122.         )
  123.         )
  124.     )
  125.     )
  126.  
  127.  
  128.     (set Sasiedzidir target)
  129.     (set @default-dest target)
  130.  
  131. ;----------------------------------------------------------------------------
  132.  
  133.    (working "Instalacja gîównych moduîów...")
  134.  
  135. ; Skopiuj Sasiedzi
  136.  
  137.   (copyfiles
  138.     (prompt "Kopiujë plik startowy.")
  139.     (help @copyfiles-help)
  140.     (source "Sasiedzi:Sasiedzi")
  141.     (dest (@default-dest))
  142.    )
  143.  
  144.    (copyfiles
  145.       (prompt "Kopiujë ikonë pliku startowego.")
  146.       (help @copyfiles-help)
  147.       (source "Sasiedzi:Sasiedzi.info")
  148.       (dest (@default-dest))
  149.    )
  150.  
  151. ; Skopiuj Sasiedzi.data
  152.  
  153.    (copyfiles
  154.       (prompt "Kopiujë plik pomocniczy")
  155.       (help @copyfiles-help)
  156.       (source "Sasiedzi:Sasiedzi.data")
  157.       (dest (@default-dest))
  158.   )
  159.  
  160. ; Skopiuj Sasiedzi
  161.  
  162.   (copyfiles
  163.     (prompt "Kopiujë instrukcjë gry.")
  164.     (help @copyfiles-help)
  165.     (source "Sasiedzi:Sasiedzi.doc")
  166.     (dest (@default-dest))
  167.    )
  168.  
  169.    (copyfiles
  170.       (prompt "Kopiujë ikonë instrukcji gry.")
  171.       (help @copyfiles-help)
  172.       (source "Sasiedzi:Sasiedzi.doc.info")
  173.       (dest (@default-dest))
  174.    )
  175.  
  176. )
  177. )
  178. )
  179. )
  180.  
  181. (Exit)
  182. (Welcome)
  183.